﻿Public Class ketquatinhtoan
    Private _malokhoan As String
    Private _macongtruong As String
    Private _w As Single
    Private _a As Single
    Private _b As Single
    Private _Q As Single
    Private _V As Single
    Private _Lk As Single
    Private _Lt As Single
    Private _Lbmin As Single
    Private _Lb As Single
    Public Property MaLoKhoan() As String
        Get
            Return _malokhoan
        End Get
        Set(ByVal value As String)
            _malokhoan = -value
        End Set
    End Property
    Public Property MaCongTruong() As String
        Get
            Return _macongtruong
        End Get
        Set(ByVal value As String)
            _macongtruong = value
        End Set
    End Property
    Public Property DuongCanChanTang() As Single
        Get
            Return _w
        End Get
        Set(ByVal value As Single)
            _w = value
        End Set
    End Property
    Public Property KhoangCanhCacLoa() As Single
        Get
            Return _a
        End Get
        Set(ByVal value As Single)
            _a = value
        End Set
    End Property
    Public Property KhoangCachCacHangb() As Single
        Get
            Return _b
        End Get
        Set(ByVal value As Single)
            _b = value
        End Set
    End Property
    Public Property LuongThuocNoMotLoQ() As Single
        Get
            Return _Q
        End Get
        Set(ByVal value As Single)
            _Q = value
        End Set
    End Property
    Public Property TheTichDatDaNoRaV() As Single
        Get
            Return _V
        End Get
        Set(ByVal value As Single)
            _V = value
        End Set
    End Property
    Public Property ChieuSauLoKhoanLk() As Single
        Get
            Return _Lk
        End Get
        Set(ByVal value As Single)
            _Lk = value
        End Set
    End Property
    Public Property ChieuDaiCotThuocLt() As Single
        Get
            Return _Lt
        End Get
        Set(ByVal value As Single)
            _Lt = value
        End Set
    End Property
    Public Property ChieuDaiBuaMinLbmin() As Single
        Get
            Return _Lbmin
        End Get
        Set(ByVal value As Single)
            _Lbmin = value
        End Set
    End Property
    Public Property ChieuDaiBuaLb() As Single
        Get
            Return _Lb
        End Get
        Set(ByVal value As Single)
            _Lb = value
        End Set
    End Property
    Public Sub New(ByVal macongtruong As String, ByVal malokhoan As String, ByVal w As Single, ByVal a As Single, ByVal b As Single, ByVal q As Single, ByVal v As Single, ByVal lk As Single, ByVal lt As Single, ByVal lbmin As Single, ByVal lb As Single)
        Me._macongtruong = macongtruong
        Me._malokhoan = malokhoan
        Me._w = w
        Me._a = a
        Me._b = b
        Me._Q = q
        Me._V = v
        Me._Lk = lk
        Me._Lt = lt
        Me._Lbmin = lbmin
        Me._Lb = lb
    End Sub
End Class
